home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
MEDICAL
/
2608A.ZIP
/
GP.ZIP
/
MEMO3.SRC
< prev
next >
Wrap
Text File
|
1990-11-03
|
7KB
|
333 lines
;\|
;MEMO3.SRC Translated from MEMO3.EDT by Roger Mathew's EDT2SRC Ver 4.11
;NEW 01:10:47 PM 14/ 7/90
define(CTR|N|1||)
define(CTR2|N|1||)
define(CTR3|N|1||)
define(TD|S|8||)
define(PROC4|A|1||)
define(REF_CTR|N|2||)
define(MEM_DOC2|N|1||)
define(CON_CTR|N|2||)
define(EXTRAS|N|3||)
define(CON_NUM|N|3||)
define(CLIN_NUM|N|3||)
define(EMERG_NUM|N|3||)
define(ISIT_EMER|A|1||)
define(MEM_DOC|A|1||)
define(NY|A|1||)
date(TD|G)
OPEN_FILES:
open(PATIENT||0|EXIT)
open(REFER||0|EXIT)
open(PROCEDE||1|EXIT)
open(MEMORY||0|EXIT)
open(GPSETUP||0|EXIT)
trap(S|G|SAVE_RECS)
trap(D|G|DEL_RECS)
trap(C|G|CLR_RECS)
trap(Q|G|EXIT)
trap(L|G|START)
MOUNT_SCRS:
mount(NEW|S||)
find(B|MEM_NAME||)
PATIENT.NAME = (MEM_NAME)
find(M|PATIENT.NAME|START|)
PROC_REF = (RECORD.NUMBER)
find(M|PROC_REF|START|)
START:
PAT.NAME:
enter(PATIENT.NAME||||Y|Y|N|||N)
find(G|PATIENT.NAME|START|)
PROC_REF = (RECORD.NUMBER)
find(M|PROC_REF|START2CL|)
NY = ("")
pmsg("DO YOU WANT TO UPDATE THE MEMOS FIRST:"|10|22|N|N|S|)
enter(NY|"YN"|||Y|Y|N|50|22|N)
if NY = ("Y") goto UPMEMO
clrlne(1|22)
START2:
gosub LINE
if CTR2 = (0) then CTR2 = (1)
SATRT3:
MEM_DOC = ("")
for(CTR|CTR2|6|1)
{
PROC_DATE[CTR] = (TD)
PROC_UP = (TD)
enter(PROC_DATE[CTR]|||SATRT3|N|N|N|||N)
enter(PROC[CTR]||||Y|Y|N|||N)
enter(PROC_DOC[CTR]|"12345"|||Y|Y|N|||N)
MEM_DOC = (PROC_DOC[CTR])
enter(PROC_OP[CTR]||||Y|Y|N|||N)
if PROC_OP[CTR] = ("") reent
if PROC_EX[CTR] = ("") do
{
PROC_REF = (RECORD.NUMBER)
PROC4 =mid(PROC[CTR]|1|1|)
if PROC4 = ("*") do
{
PROC_EX[CTR] = ("X")
gosub STARTAGAIN
save(PROCEDE|N|N)
find(M|PROC_REF||)
}
enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
}
}
gosub LINE
for(CTR|1|6|1)
{
if PROC[CTR] = ("") then PROC_DATE[CTR] = (0)
}
goto SATRT3
SAVE_RECS:
for(CTR|1|6|1)
{
if PROC[1] = ("") do
{
clr(PROCEDE|B)
goto START
}
if PROC[CTR] = ("") do
{
PROC_DATE[CTR] = (0)
PROC_OP[CTR] = ("")
PROC_DOC[CTR] = ("")
PROC_DONE[CTR] = ("")
}
}
if PROC_REF = (0) goto START
PROC_REF = (RECORD.NUMBER)
if PROC_REF = (0) goto START
save(PROCEDE|Y|Y|)
MEM_DOC = ("")
goto START
DEL_RECS:
del(PROCEDE|Y|)
goto START
CLR_RECS:
MEM_DOC = ("")
clr(PATIENT|B)
clr(PROCEDE|B)
goto START
EXIT:
if PROC[1] = ("") goto RUNPATREC
for(CTR|1|6|1)
{
if PROC[CTR] = ("") do
{
PROC_DATE[CTR] = (0)
PROC_OP[CTR] = ("")
PROC_DOC[CTR] = ("")
PROC_DONE[CTR] = ("")
}
}
if PROC_REF > (0) then save(PROCEDE|N|Y)
RUNPATREC:
run("RECPOINT")
LINE:
for(CTR2|1|6|1)
{
if PROC[CTR2] = ("") do
{
if CTR2 = (6) do
{
pops
goto SATRT3
}
ret
}
}
CTR = (2)
if PROC_DATE[1] = (TD) do
{
for(CTR3|1|6|1)
{
enter(PROC_DONE[CTR3]|" Y"|||Y|Y|N|||N)
}
pops
goto SAVE_RECS
}
for(CTR2|1|5|1)
{
PROC[CTR2] = (PROC[CTR])
PROC_DATE[CTR2] = (PROC_DATE[CTR])
PROC_OP[CTR2] = (PROC_OP[CTR])
PROC_DOC[CTR2] = (PROC_DOC[CTR])
PROC_DONE[CTR2] = (PROC_DONE[CTR])
CTR = (CTR+1)
}
PROC[6] = ("")
PROC_DATE[6] = (0)
PROC_OP[6] = ("")
PROC_DOC[6] = ("")
PROC_DONE[6] = ("")
PROC_EX[6] = ("")
goto LINE
ret
UPARROW:
CTR2 = (CTR2-1)
CTR = (CTR2)
ret
STARTAGAIN:
trap(%|I)
trap(Q|G|EXITX)
trap(U|I)
saves(1)
window(20|15|5|40)
trap(Q|G|EXITX)
find(B|HEADING||)
pmsg("IS IT EMERGENCY:"|1|1|N|N|S|)
enter(ISIT_EMER|"YN"|||Y|Y|N|20|1|N)
if ISIT_EMER = ("Y") goto SCR2
gosub SCREEN2
CLIN_NUM = (CLIN_NUM)
pmsg("ENTER SPECIALTY:"|1|2|N|N|S|)
enter(CLIN_NUM||||N|Y|N|20|2|N)
ADDER:
REF_COD = (MEM_DOC)
find(M|REF_COD|EXIT|)
if ISIT_EMER <> ("Y") do
{
CLIN_REF[CLIN_NUM] = (CLIN_REF[CLIN_NUM]+1)
}
else
{
EMERG_REF[EMERG_NUM] = (EMERG_REF[EMERG_NUM]+1)
}
save(REFER|N|Y)
CLIN_NUM = (0)
CON_NUM = (0)
EMERG_NUM = (0)
ISIT_EMER = ("")1
redsp(1)
trap(%|D)
trap(U|D)
trap(Q|G|EXIT)
ret
SCREEN2:
saves(2)
window(1|25|24|78)
for(REF_CTR|1|22|1)
{
pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
}
CON_CTR = (REF_CTR+1)
for(REF_CTR|1|22|1)
{
pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
CON_CTR = (CON_CTR+1)
}
pmsg("ENTER NUMBER:"|60|12|N|N|S|)
enter(CLIN_NUM||||N|Y|N|65|13|N)
if CLIN_NUM = (0) reent
if CLIN_NUM > (44) reent
redsp(2)
ret
SCREEN3:
saves(2)
window(1|25|24|78)
for(REF_CTR|1|22|1)
{
pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
}
CON_CTR = (REF_CTR+1)
for(REF_CTR|1|22|1)
{
pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
CON_CTR = (CON_CTR+1)
}
pmsg("ENTER NUMBER:"|60|12|N|N|S|)
enter(EMERG_NUM||||N|Y|N|65|13|N)
if EMERG_NUM = (0) reent
if EMERG_NUM > (44) reent
redsp(2)
ret
SCR2:
gosub SCREEN3
EMERG_NUM = (EMERG_NUM)
pmsg("ENTER SPECIALTY EMERGENCY:"|1|3|N|N|S|)
enter(EMERG_NUM||||N|Y|N|30|3|N)
goto ADDER
EXITX:
run("RECPOINT")
UPMEMO:
enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
clrlne(1|22)
goto START2
START2CL:
clr(PROCEDE|B)
goto START2
\STNEW
PROCEDURE ENTRY
╔═══════════════════════════════════════════════════════════════╗
║ & <& <& <║
║ ║
║ Date Procedure Dr Rec Done║
║ & & & & & ║
║ & & & & & ║
║ & & & & & ║
║ & & & & & ║
║ & & & & & ║
║ & & & & & ║
╚═══════════════════════════════════════════════════════════════╝
Esc - Exit and Save V=1 G=2 P=3 N=4 T=5 * for clinic,xray,path
Y=DONE S=SEE DR C=COL.SCRPT R=REPEAT O=OTHER N=NORMAL
\
PATIENT.NAME
ADDRESS1
DATE.OF.BIRTH
PROC_DATE[1]
PROC[1]
PROC_DOC[1]
PROC_OP[1]
PROC_DONE[1]
PROC_DATE[2]
PROC[2]
PROC_DOC[2]
PROC_OP[2]
PROC_DONE[2]
PROC_DATE[3]
PROC[3]
PROC_DOC[3]
PROC_OP[3]
PROC_DONE[3]
PROC_DATE[4]
PROC[4]
PROC_DOC[4]
PROC_OP[4]
PROC_DONE[4]
PROC_DATE[5]
PROC[5]
PROC_DOC[5]
PROC_OP[5]
PROC_DONE[5]
PROC_DATE[6]
PROC[6]
PROC_DOC[6]
PROC_OP[6]
PROC_DONE[6]
\